home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / tcp / ModServer11.lha / ModPut.amirx < prev    next >
Text File  |  1997-03-13  |  491b  |  28 lines
  1. /* ModPut by Shades / fake a.k.a. Erik Lindberg 97-03-13 
  2. */
  3.  
  4. /* Don't change below unless you know what you're doing */
  5.  
  6. options results
  7. parse arg args
  8. nick=args
  9.  
  10. address AMIRC.1
  11.  
  12. if show('P','HIPPOPLAYER') then do
  13.     address HIPPOPLAYER
  14.     get FNAM
  15.     filename=result
  16. end
  17.  
  18. if show('P','DELITRACKER') then do
  19.     address DELITRACKER
  20.     status m fil
  21.     filename=result
  22.     status m dir
  23.     dirname=result
  24.     filename=insert(filename,dirname,length(dirname))
  25. end
  26.  
  27. address AMIRC.1    'say /dcc send 'nick' 'filename    
  28.